home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Mops 2.7 / Mops source / Module source / AlertQmod.txt next >
Encoding:
Text File  |  1994-05-08  |  372 b   |  19 lines  |  [TEXT/MSET]
  1. \ More Mac-like alternative to abort"
  2. \  May 90  Mops version.  Resource based.
  3.  
  4. need dialog
  5. need alert
  6.  
  7.     3    alert    ALRT
  8.  
  9. cfas{ null null null }  900  init: alrt
  10.  
  11. variable NUMSTR  10 allot
  12.  
  13. : (AL) { RC type addr len -- }
  14.  
  15.     numStr 14 blanks
  16.     RC dup abs  <# #s sign #>  numStr  swap 14 min cmove
  17.     addr len  numStr 14  0 0  0 0  paramText
  18.     type setType: alrt  show: alrt  ;
  19.